;Pop-UPs

menu nicklist {
  -
  WB Message
  .Add WB Line for $snick(#,1) $+ :/write wb.txt $1 $$?="WB Message"
  .Del  WB Line for $snick(#,1) $+ :/write -ds [ $+ [ $1 ] ] wb.txt
}
;Alias

alias wbmsg {
  set %wb.nick $1
  set %wb.temp $read -s [ $+ [ %wb.nick ] ] wb.txt
  set %wb.msg $gettok(%wb.temp,1-,32)
  msg $chan $cg() $cg(WB) $+  $+ %spc %wb.nick $+  $cg(WB) 0,1 $+ %wb.msg   

  unset %wb.*
}

;Events

on *:JOIN:#: {
  set %temp.tot $lines(wb.txt)
  set %temp.cur 1
  :loop
  if (%temp.cur > %temp.tot) { goto end }
  set %temp.line $read -l [ $+ [ %temp.cur ] ] wb.txt
  if ($nick == $left($gettok(%temp.line,1,32),$len(%temp.line))) { wbmsg $nick }
  inc %temp.cur
  goto loop
  :end
  unset %temp*
